home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / lablr.atr < prev    next >
Text File  |  1995-04-22  |  1KB  |  35 lines
  1. 0 REM Diskette Label Maker for the C.Itoh Prowriter 
  2. 1 REM By John Snell 1/18/83 
  3. 2 ? "}" 
  4. 5 DIM NAME$(13),ANSWER$(1),DNAME$(135),MARGIN$(3) 
  5. 6 LN=1:MARGIN$="000" 
  6. 25 ? "Do you wish to give this diskette a   special name";:INPUT ANSWER$ 
  7. 30 IF ANSWER$="Y" OR ANSWER$="y" THEN 100 
  8. 35 OPEN #1,6,0,"D:*.*" 
  9. 40 TRAP 90:INPUT #1;NAME$ 
  10. 60 IF NAME$(11,13)="SYS" OR NAME$(11,13)="SAV" OR NAME$(11,13)="CAT" THEN 40 
  11. 61 IF NAME$(3,6)="MENU" THEN 40 
  12. 62 IF NAME$(5,8)="FREE" THEN 90 
  13. 70 LPRINT CHR$(27);CHR$(81);CHR$(27);CHR$(76);MARGIN$;NAME$:LN=LN+1 
  14. 80 IF LN=5 THEN MARGIN$="016":GOSUB 200 
  15. 81 IF LN=9 THEN MARGIN$="032":GOSUB 200 
  16. 82 IF LN=13 THEN MARGIN$="048":GOSUB 200 
  17. 83 IF LN=17 THEN MARGIN$="064":GOSUB 200 
  18. 84 IF LN=21 THEN GOSUB 1000 
  19. 85 IF LN<21 THEN GOTO 40 
  20. 86 ? "Advance Printer to Next Label, Hit ANY KEY When Ready" 
  21. 87 LN=0:POKE 764,255 
  22. 88 IF PEEK(764)=255 THEN GOTO 88 
  23. 89 GOTO 40 
  24. 90 CLOSE #1:ANSWER$="Q":POKE 764,255:? "Want to do another one";:INPUT ANSWER$ 
  25. 91 IF ANSWER$="Y" OR ANSWER$="y" THEN RUN  
  26. 92 END  
  27. 100 INPUT DNAME$ 
  28. 102 GOSUB 1000 
  29. 110 LPRINT CHR$(27);CHR$(81);CHR$(27);CHR$(88);DNAME$;CHR$(27);CHR$(34);CHR$(27);CHR$(89) 
  30. 120 GOTO 35 
  31. 200 LPRINT CHR$(27);CHR$(91);CHR$(27);CHR$(114):LPRINT :LPRINT :LPRINT :LPRINT :LPRINT CHR$(27);CHR$(102);CHR$(27);CHR$(93) 
  32. 210 RETURN  
  33. 1000 MARGIN$="000" 
  34. 1001 LPRINT CHR$(27);CHR$(81);CHR$(27);CHR$(76);MARGIN$:RETURN  
  35.